gnus-group.el (gnus-group-completing-read): Fix last change.

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 1833c6048935af9659fb5d8653c7223265fc6e22..c14645622084b17f6c453a5a347e88393bba412a 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -2190,7 +2190,9 @@ if it is not a list."
                                      require-match initial-input
                                      (or hist 'gnus-group-history)
                                      def))
-    (if (symbol-value (intern-soft group collection))
+    (if (if (listp collection)
+           (member group (mapcar 'symbol-name collection))
+         (symbol-value (intern-soft group collection)))
        group
       (mm-encode-coding-string group (gnus-group-name-charset nil group)))))